home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
LIBRARY
/
INFSUM.LI
< prev
next >
Wrap
Text File
|
1993-10-16
|
370b
|
12 lines
# infinite sum
# infsum(y,n) gives symbolic sum of y with respect to n from 0 to inf
infsum(1/n_ !, n_) := e
infsum((-1)^n_/n_ !, n_) := 1/e
infsum(x^n_/n_ !, n_) := e^x
infsum((-1)^n_*x^(2*n_+1)/(2*n_+1)!, n_) := sin(x)
infsum((-1)^n_*x^(2*n_)/(2*n_)!, n_) := cos(x)
infsum(x^(2*n_+1)/(2*n_+1)!, n_ ) := sinh(x)
infsum(x^(2*n_)/(2*n_)!, n_ ) := cosh(x)